Visual Basic Controls/Visual Basic Controls.iso/vbcontrol/dprogr_1/dprogr~1.exe/DProgress.frm

Visual Basic Form | 1998-10-20 | 11.8 KB | 370 lines

VERSION 5.00
Object = "{BEF057CD-6F14-11D1-9A25-00C04FD8DC2E}#1.0#0"; "DProgress.dll"
Begin VB.Form Form1
   Caption         =   "DameWare Progress Sample"
   ClientHeight    =   3510
   ClientLeft      =   585
   ClientTop       =   690
   ClientWidth     =   7185
   LinkTopic       =   "Form1"
   ScaleHeight     =   3510
   ScaleWidth      =   7185
   Begin DPROGRESSLibCtl.DProgressCtl DProgressCtl10
      Height          =   375
      Left            =   240
      TabIndex        =   9
      Top             =   2880
      Width           =   4095
      BorderStyle     =   1
      BorderVisible   =   -1  'True
      DrawStyle       =   1
      Appearance      =   0
      ForeColor       =   16711680
      BackColor       =   12648447
      Text            =   "%3i%%"
      ProgressColor   =   65535
      Position        =   0
      SetStep         =   1
      Interval        =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin DPROGRESSLibCtl.DProgressCtl DProgressCtl9
      Height          =   375
      Left            =   240
      TabIndex        =   8
      Top             =   2400
      Width           =   4095
      BorderStyle     =   1
      BorderVisible   =   -1  'True
      DrawStyle       =   0
      Appearance      =   0
      ForeColor       =   0
      BackColor       =   16777215
      Text            =   "%3i%%"
      ProgressColor   =   16711680
      Position        =   0
      SetStep         =   1
      Interval        =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin DPROGRESSLibCtl.DProgressCtl DProgressCtl8
      Height          =   2775
      Left            =   6360
      TabIndex        =   7
      Top             =   480
      Width           =   495
      BorderStyle     =   1
      BorderVisible   =   -1  'True
      DrawStyle       =   3
      Appearance      =   1
      ForeColor       =   65535
      BackColor       =   0
      Text            =   "%3i%%"
      ProgressColor   =   16776960
      Position        =   0
      SetStep         =   1
      Interval        =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin DPROGRESSLibCtl.DProgressCtl DProgressCtl7
      Height          =   2775
      Left            =   5760
      TabIndex        =   6
      Top             =   480
      Width           =   495
      BorderStyle     =   1
      BorderVisible   =   -1  'True
      DrawStyle       =   2
      Appearance      =   1
      ForeColor       =   0
      BackColor       =   16777215
      Text            =   "%3i%%"
      ProgressColor   =   65280
      Position        =   0
      SetStep         =   1
      Interval        =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin DPROGRESSLibCtl.DProgressCtl DProgressCtl6
      Height          =   2775
      Left            =   5160
      TabIndex        =   5
      Top             =   480
      Width           =   495
      BorderStyle     =   1
      BorderVisible   =   -1  'True
      DrawStyle       =   1
      Appearance      =   1
      ForeColor       =   0
      BackColor       =   16777215
      Text            =   "%3i%%"
      ProgressColor   =   16711935
      Position        =   0
      SetStep         =   1
      Interval        =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin DPROGRESSLibCtl.DProgressCtl DProgressCtl5
      Height          =   2775
      Left            =   4560
      TabIndex        =   4
      Top             =   480
      Width           =   495
      BorderStyle     =   1
      BorderVisible   =   -1  'True
      DrawStyle       =   0
      Appearance      =   1
      ForeColor       =   0
      BackColor       =   16777215
      Text            =   "%3i%%"
      ProgressColor   =   16711680
      Position        =   0
      SetStep         =   1
      Interval        =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin DPROGRESSLibCtl.DProgressCtl DProgressCtl4
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   1920
      Width           =   4095
      BorderStyle     =   1
      BorderVisible   =   -1  'True
      DrawStyle       =   3
      Appearance      =   0
      ForeColor       =   0
      BackColor       =   16777215
      Text            =   "%3i%%"
      ProgressColor   =   65535
      Position        =   0
      SetStep         =   1
      Interval        =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin DPROGRESSLibCtl.DProgressCtl DProgressCtl3
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   1440
      Width           =   4095
      BorderStyle     =   1
      BorderVisible   =   -1  'True
      DrawStyle       =   2
      Appearance      =   0
      ForeColor       =   255
      BackColor       =   12632256
      Text            =   "%3i%%"
      ProgressColor   =   12582912
      Position        =   0
      SetStep         =   1
      Interval        =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin DPROGRESSLibCtl.DProgressCtl DProgressCtl2
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   960
      Width           =   4095
      BorderStyle     =   1
      BorderVisible   =   -1  'True
      DrawStyle       =   1
      Appearance      =   0
      ForeColor       =   33023
      BackColor       =   16777215
      Text            =   "Process is %3i%% complete"
      ProgressColor   =   16711680
      Position        =   0
      SetStep         =   1
      Interval        =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin DPROGRESSLibCtl.DProgressCtl DProgressCtl1
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   480
      Width           =   4095
      BorderStyle     =   1
      BorderVisible   =   -1  'True
      DrawStyle       =   0
      Appearance      =   0
      ForeColor       =   0
      BackColor       =   16777215
      Text            =   "%3i%%"
      ProgressColor   =   255
      Position        =   0
      SetStep         =   1
      Interval        =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim bGoingRight As Long
Private Sub DProgressCtl1_OnTimer()
    DProgressCtl1.StepIt
  If DProgressCtl1.Position = 1000 Then
    DProgressCtl1.Interval = 0
    End If
End Sub
Private Sub DProgressCtl10_OnTimer()
Dim lStep As Long
If DProgressCtl10.Position = 100 Then
    bGoingRight = 1
End If
If DProgressCtl10.Position = 0 Then
    bGoingRight = 0
End If
If bGoingRight = 0 Then
    lStep = 1
    lStep = -1
End If
    DProgressCtl10.Position = DProgressCtl10.Position + lStep
End Sub
Private Sub DProgressCtl2_OnTimer()
    DProgressCtl2.StepIt
  If DProgressCtl2.Position = 100 Then
    DProgressCtl2.Interval = 0
    End If
End Sub
Private Sub DProgressCtl3_OnTimer()
    DProgressCtl3.StepIt
  If DProgressCtl3.Position = 100 Then
    DProgressCtl3.Interval = 0
    End If
End Sub
Private Sub DProgressCtl4_OnTimer()
    DProgressCtl4.StepIt
  If DProgressCtl4.Position = 100 Then
    DProgressCtl4.Interval = 0
    End If
End Sub
Private Sub DProgressCtl5_OnTimer()
    DProgressCtl5.StepIt
  If DProgressCtl5.Position = 100 Then
    DProgressCtl5.Interval = 0
    End If
End Sub
Private Sub DProgressCtl6_OnTimer()
    DProgressCtl6.StepIt
  If DProgressCtl6.Position = 100 Then
    DProgressCtl6.Interval = 0
    End If
End Sub
Private Sub DProgressCtl7_OnTimer()
  DProgressCtl7.StepIt
  If DProgressCtl7.Position = 100 Then
    DProgressCtl7.Interval = 0
    End If
End Sub
Private Sub DProgressCtl8_OnTimer()
  DProgressCtl8.StepIt
  If DProgressCtl8.Position = 100 Then
    DProgressCtl8.Interval = 0
    End If
End Sub
Private Sub DProgressCtl9_OnTimer()
Dim RndValue
    RndValue = Int((100 * Rnd) + 1)    ' Generate random value between 1 and 6.
    DProgressCtl9.Position = RndValue
End Sub
Private Sub Form_Load()
    bGoingRight = 1
    DProgressCtl1.SetRange 0, 270
    DProgressCtl1.SetStep = 5
    DProgressCtl1.Interval = 50
    DProgressCtl2.Interval = 25
    DProgressCtl3.Interval = 60
    DProgressCtl4.Interval = 75
    DProgressCtl5.Interval = 30
    DProgressCtl6.Interval = 70
    DProgressCtl7.Interval = 80
    DProgressCtl8.Interval = 55
    DProgressCtl9.Interval = 250
    DProgressCtl10.Interval = 25
End Sub